predictions <- function(regModel, data){
	xname <- names(regModel$model)[2]
	xname <- gsub("I\\(","",xname)
	xname <- gsub("1/","",xname)
	xname <- gsub("log\\(","",xname)
	xname <- gsub("\\)","",xname)
	yname <- names(regModel$model)[1]
	d <- data.frame(data)
	names(d) <- xname
	t <- predict(regModel,d)
	t <- as.matrix(c(data,t))
	dim(t) <- c(length(data),2)
	colnames(t) <- c(xname,paste("prediction(",yname,")",sep=""))
	rownames(t) <- rep("",length(data))
	return(t)
}